home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 021-030 / amok21 / iffsupport1.5 / loadbody.mod < prev    next >
Text File  |  1993-11-04  |  2KB  |  53 lines
  1. IMPLEMENTATION MODULE LoadBody;
  2.  
  3. FROM SYSTEM IMPORT BYTE, WORD, ADDRESS, BITSET, LONGSET, FFP,
  4.                    INLINE, SETREG, REG, CAST;
  5.  
  6. CONST
  7.   MOVEMS = 48E7H;
  8.   MOVEML = 4CDFH;
  9.  
  10. (*------  LoadBody  ------*)
  11.  
  12. PROCEDURE LoadBody(a: PROC; b,c:ADDRESS; d,e:LONGINT; f,g:INTEGER;h:BOOLEAN);
  13.  
  14. (* PROCEDURE LoadBody(GetData: PROC; Buffer, BitMapPtrs: ADDRESS;
  15.              LineLength, LineWidth, Height, Depth: INTEGER;
  16.              ExtraPlane: BOOLEAN);                                         *)
  17.  
  18. BEGIN
  19.  
  20.   INLINE(MOVEMS,0FFFEH);
  21.  
  22.   SETREG(10,CAST(ADDRESS,a));
  23.   SETREG(11,ADDRESS(b));
  24.   SETREG(12,ADDRESS(c));
  25.   SETREG( 2,ADDRESS(d));
  26.   SETREG( 3,ADDRESS(e));
  27.   SETREG( 5,ADDRESS(f));
  28.   SETREG( 4,ADDRESS(g));
  29.   SETREG( 6,ADDRESS(h));
  30.  
  31.   INLINE(041FAH,000D2H,03086H,041FAH,000CEH,03085H,048E7H,03F3EH);
  32.   INLINE(04E92H,04CDFH,07CFCH,0323CH,00000H,03A3CH,00000H,03C3CH);
  33.   INLINE(00000H,03003H,0C0C5H,02A40H,0E546H,0DBF4H,06000H,0E446H);
  34.   INLINE(02C4DH,0DDC2H,06100H,00084H,0B03CH,00080H,06212H,06722H);
  35.   INLINE(01E00H,06100H,00076H,01A80H,0528DH,05307H,06AF4H,06012H);
  36.   INLINE(01E00H,06100H,00066H,01A80H,0528DH,05207H,0BE3CH,00001H);
  37.   INLINE(066F4H,0BDCDH,062CEH,05246H,0BC44H,065B6H,041FAH,00066H);
  38.   INLINE(04A50H,06738H,02A7CH,00000H,00000H,06100H,0003EH,0B03CH);
  39.   INLINE(00080H,06210H,06722H,01E00H,06100H,00030H,0528DH,05307H);
  40.   INLINE(06AF6H,06014H,01E00H,06100H,00022H,0DBFCH,00000H,00101H);
  41.   INLINE(0CEBCH,00000H,000FFH,09BC7H,0B48DH,062CEH,05245H,041FAH);
  42.   INLINE(00026H,0BA50H,06500H,0FF68H,0601EH,01033H,01000H,05241H);
  43.   INLINE(0B27CH,00200H,0650CH,048E7H,0FF3EH,04E92H,04CDFH,07CFFH);
  44.   INLINE(04241H,04E75H,00001H,00001H);
  45.  
  46.  
  47.   INLINE(MOVEML,07FFFH);
  48.  
  49. END LoadBody;
  50.  
  51. BEGIN
  52. END LoadBody.
  53.